home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Georgia Wildfire Prevention
/
Georgia Wildfire Prevention.iso
/
pc
/
media
/
dirs
/
BackUp
/
GoodBad.dir
/
00033_Script_MovieAction
< prev
next >
Wrap
Text File
|
2002-10-15
|
1KB
|
40 lines
--Attach this behavior to a movie to receive commands from control buttons.
property BeginTime, MovieEnd, SpNum, mm, MemNum, MyMem
on new me
SpNum = me.spritenum
mm=sprite(spnum).member
MemNum =mm.number
MyMem = mm.name
BeginTime = 0
end
--MouseDown Controls
on MovieActionDown me, MovieControl
case MovieControl of
"Play" : sprite(SpNum).movierate = 1
"Pause" : sprite(SpNum).movierate = 0
"Stop" : sprite(SpNum).movietime = 0
sprite(SpNum).movierate = 0
"Rewind" : sprite(SpNum).movierate = -2
"Fast Forward" : sprite(SpNum).movierate = 2
end case
end
--MouseUp Controls
on MovieActionUp me, MovieControl
case (MovieControl) of
"Rewind" : sprite(SpNum).movierate = 1
"Fast Forward" : sprite(SpNum).movierate = 1
end case
end
on CheckTime me
if BeginTime = 0 then
BeginTime = the Ticks
MovieEnd = Member(MyMem).duration + BeginTime + 300
end if
if the ticks > MovieEnd then
go to frame 1
end if
end